\version "2.22.1"
date = #(strftime "%d %B %Y" (localtime (current-time)))

% TODO
% make repeated 8ths chords more playable

\header {
  title = "Feeling Good"
  composer = "Nina Simone"
  % arr. Alessio Fontanarossa
  % https://musescore.com/user/31267555/scores/5581682
  tagline = \markup {\bold \date}
}

% music pieces
%part: melody
melody = {
  \set Staff.instrumentName = "Melody "
  \set Score.markFormatter = #format-mark-box-numbers
  \relative c' {
    \key g \major

    % intro
    \tempo 4. = 60
    \time 12/8
    | r4. e8 g a b4. r
    | r4. \times 3/4 { b8 e, g a } b4. r4.
    | r4. e,8 g a b4. r
    | e8 e4 ~ e8 e e b2.
    | r8 e4 d8 d b ais16 a g8 e g4.
    | r4 e8 e e e g4. r4 e16 e
    | g8 a4 r g16 g a8 b4 r g16 a
    | b8 d4( e) r8 r4. b ~
    | b4.( g8) a4 ~ a2.
    | r4. r8 e e a16 g e4 ~ e4. ~
    | e2. r4. e4.

    \mark 12
    \tempo 4. = 78
    | R1.
    | r4. r4 ais8 a g a e4. ~
    | e8 e e e4. r2.
    | R1.

    \mark 16
    \repeat volta 2 {
      | r4. e8 g a b4. r4.
      | r4 b8 e, g a b4. r
      | r4. e,8 g a b4. r
      | r8 b b d e d ~ d b4 ~ b4.
      | r4. \times 3/4 { e8 d b g } a g16 e g8 r4.
      | r4 e8 e e e g4. r8 e e
      | g8 a4 ~ a8 g g a b4 r8 a a
      | b8 d4 ~ d8 e r r4. b8( a) a ~
    }
    \alternative {
      {
        | a4. r4. r8 e e a16 g e8 e
        | e2. r
        | R1.
      }
      { | R1. }
    }

    \mark 28
    | r2. b'4 b8 ~ b4.
    | R1.
    | R1.
    | r2. r4 d,8 e g e
    | a4. g4 e8 ~ e4. r
    | r2. r4 d8 e g e
    | d'4. ~ d8 b g d g c ~ c4.
    | R1.
    | R1.

    \mark 37
    | r4. e4 d8 ~ d8 d b8 b16 a g4
    | r8 b b g a b ~ b4. r4.
    | r4. e,8 g a a4. r
    | r8 e'8 e ~ e e e b4. r4 e8
    | g,8 g4 ~ g8 e d e4 g8 r4 e8
    | g'8. e16 ~ e8 r g, a g e4 r e16 e
    | g8 a4 r e16 e g8 a4 ~ a4 g16 g
    | a8 b4 r2. r8 e,8 e8
    | g8 a4 ~ a8 g g a b4 r8 g a
    | b8 d4 ~ d8 e r8 r4. r8 d e
    | g8 g4 r8 e e g g4 r8 e e
    | g8 g r4 e8 e g e g r4 e8
    | g2. r4 b,8 ~ b8 b4

    \mark 50
    | g'8 fis8 e8 ~ e16 d ais8 a g4. r4.
    \tempo 4. = 68
    | e2. ~ e8 g4 r4.
    | r8 e fis g a fis g4. e8 e e
    | e4. ~ e2. r4.
    | r4. r8 ais8 a8 g4. e4. ~
    | e4. g4. ~ g4 e8 ~ e4.
    | r4. e'4. d8 ais8 a8 g4 a8
    | a16 g e8 e ~ e4. r2.
    | R1.
    | R1.

    \bar "|."

  }
}

%part: harmony
harmony = {
  \set Score.markFormatter = #format-mark-box-numbers
  \set Staff.instrumentName = "Harmony "
  \relative c'' {
    \key g \major

    % intro
    \tempo 4. = 60
    \time 12/8
    | <g b e>2. <g b e>
    | <g b e>2. <g b e>4. <fis a dis>
    | g2. <g b>
    | <g b e>2. <g b e>4. <fis a dis>
    | <b e g>2. <b e g>
    | <b e g>2. <b e g>4. r
    | r4. <b d e> r <c e g>
    | r4. <c e b'> r2.
    | r2 a'4 <b, dis g>4. <b dis fis> ~
    | <b dis fis> r4. r2.
    | R1.

    \mark 12
    \tempo 4. = 78
    | r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8 r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8
    | r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8 r4 <g b>8 <g d'> <g b> <g d'>
    | <g b e>4 <e' g>8 ~ <e g> g a bes a bes a bes a
    | g e fis g e g <dis g b>4. r

    \mark 16
    \repeat volta 2 {
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <dis fis b> <dis fis b> <dis fis b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e fis b> <e fis b> <e fis b> <dis fis b> <dis fis b> <dis fis b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <c e g> <c e g> <c e g> <c e g> <c e g> <c e g>
      | <d fis a>8 <d fis a> <d fis a> <d fis a> <d fis a> <d fis a> <c e a> <c e a> <c e a> <c e a> <c e a> <c e a>
    }
    \alternative {
      {
        | <c e a>8 <c e a> <c e a> <c e a> <c e a> <c e a> <b dis fis> r4 r4.
        | <g' b e>8 <g b e> <g b e> <g b e> <g b e> <a e'> <bes e> <a e'> <bes e> <a e'> <bes e> <a e'>
        | <g e'>8 e d <e g b>4 <e g b>8 ~ <e g b>2 r4
      }
      {
        | r4 <e g b>8 <e g b>4 r8 r4 <e g b>8 <e g b>4 r8
      }
    }

    \mark 28
    | r4 <e g b>8 <e g b>4 r8 <dis g a>4 <dis g a>8 ~ <dis g a>4.
    | <g b e>4 <e b'>8 ~ <e b'> g a bes a bes a bes a
    | g e d e g a <dis, fis b>4 <dis fis b>8 ~ <dis fis b>4.
    | r4 e8 g r e a4. <g b e>4 <e g b>8
    | r4 e8 g r bes a4. <g b e>4 <e g b>8
    | r4 e8 g r e a4. <g b e>4 <e g b>8
    | r4 e8 g a g bes a g a g <e g b>
    | g4 e e8 a g4 e g8 a
    | bes8 b e a, g a g16 e ~ e4 r8 d c

    \mark 37
    | e'8 b e, r4. r4 < g b e >8 < g b e >4.
    | bes16 g16 ~ g8 e ~ e4. r4 < g a d >8 ~ < g a d >4.
    | e4. e8 g a b e bes a g e
    | g8 e g e g e d' b <g a d> ~ <g a d>4.
    | r4. <g b e>4. r4. <e g b>4.
    | r4. <d e g>4. r4. <e g b>4.
    | r8 <g b e> <g b e> <g b e> <g b e> r r <g b e> <g b e> <g b e> <g b e> r
    | r8 <g b e> <g b e> <g b e> <g b e> r r <e g b> <e g b> <e g b> <e g b> r
    | r8 <g b e> <g b e> <g b e> <g b e> r r <g c e> <g c e> <b c e> <b c e> r
    | r8 <a b d> <a b d> <a b d> <a b d> r r <e a c> <e a c> <dis a' c> <dis a' c> <dis a' c>
    | r4. <e g b> r <e g b>
    | r4. <e g b> r <e g b>
    | <e fis a>4. <e fis a> <dis fis a>4 r2

    \mark 50
    | R1.
    \tempo 4. = 68
    | e4 g8 a4 b4. b,8 d4 e8 ~
    | e4 g8 a4 b8 d b g a g fis
    | e4 g8 a4 b4. b,8 d4 e8 ~
    | e4 g8 a4 b8 d b g a g fis
    | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    | < g b d >1.

    \bar "|."

  }
}

%part: harmony_bes
harmony_bes = {
  \set Score.markFormatter = #format-mark-box-numbers
  \set Staff.instrumentName = "Harmony "
  \relative c'' {
    \key g \major

    % intro
    \tempo 4. = 60
    \time 12/8
    | <g'b e>2. <g b e>
    | <g b e>2. <g b e>4. <fis a dis>
    | g2. <g b>
    | <g b e>2. <g b e>4. <fis a dis>
    | <b e g>2. <b e g>
    | <b e g>2. <b e g>4. r
    | r4. <b d e> r <c e g>
    | r4. <c e b'> r2.
    | r2 a'4 <b, dis g>4. <b dis fis> ~
    | <b dis fis> r4. r2.
    | R1.

    \mark 12
    \tempo 4. = 78
    | r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8 r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8
    | r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8 r4 <g b>8 <g d'> <g b> <g d'>
    | <g b e>4 <e g>8 ~ <e g> g a bes a bes a bes a
    | g e fis g e g <dis g b>4. r

    \mark 16
    \repeat volta 2 {
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <dis fis b> <dis fis b> <dis fis b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e fis b> <e fis b> <e fis b> <dis fis b> <dis fis b> <dis fis b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b> <e g b>
      | <e g b>8 <e g b> <e g b> <e g b> <e g b> <e g b> <c e g> <c e g> <c e g> <c e g> <c e g> <c e g>
      | <d fis a>8 <d fis a> <d fis a> <d fis a> <d fis a> <d fis a> <c e a> <c e a> <c e a> <c e a> <c e a> <c e a>
    }
    \alternative {
      {
        | <c e a>8 <c e a> <c e a> <c e a> <c e a> <c e a> <b dis fis> r4 r4.
        | <g' b e>8 <g b e> <g b e> <g b e> <g b e> <a e'> <bes e> <a e'> <bes e> <a e'> <bes e> <a e'>
        | <g e'>8 e d <e g b>4 <e g b>8 ~ <e g b>2 r4
      }
      {
        | r4 <e g b>8 <e g b>4 r8 r4 <e g b>8 <e g b>4 r8
      }
    }

    \mark 28
    | r4 <e g b>8 <e g b>4 r8 <dis g a>4 <dis g a>8 ~ <dis g a>4.
    | <g b e>4 <e b'>8 ~ <e b'> g a bes a bes a bes a
    | g e d e g a <dis, fis b>4 <dis fis b>8 ~ <dis fis b>4.
    | r4 e8 g r e a4. <g b e>4 <e g b>8
    | r4 e8 g r bes a4. <g b e>4 <e g b>8
    | r4 e8 g r e a4. <g b e>4 <e g b>8
    | r4 e8 g a g bes a g a g <e g b>
    | g4 e e8 a g4 e g8 a
    | bes8 b e a, g a g16 e ~ e4 r8 d c

    \mark 37
    | e'8 b e, r4. r4 < g b e >8 < g b e >4.
    | bes16 g16 ~ g8 e ~ e4. r4 < g a d >8 ~ < g a d >4.
    | e4. e8 g a b e bes a g e
    | g8 e g e g e d' b <g a d> ~ <g a d>4.
    | r4. <g b e>4. r4. <e g b>4.
    | r4. <d e g>4. r4. <e g b>4.
    | r8 <g b e> <g b e> <g b e> <g b e> r r <g b e> <g b e> <g b e> <g b e> r
    | r8 <g b e> <g b e> <g b e> <g b e> r r <e g b> <e g b> <e g b> <e g b> r
    | r8 <g b e> <g b e> <g b e> <g b e> r r <g c e> <g c e> <b c e> <b c e> r
    | r8 <a b d> <a b d> <a b d> <a b d> r r <e a c> <e a c> <dis a' c> <dis a' c> <dis a' c>
    | r4. <e g b> r <e g b>
    | r4. <e g b> r <e g b>
    | <e fis a>4. <e fis a> <dis fis a>4 r2

    \mark 50
    | R1.
    \tempo 4. = 68
    | e4 g8 a4 b4. b,8 d4 e8 ~
    | e4 g8 a4 b8 d b g a g fis
    | e4 g8 a4 b4. b,8 d4 e8 ~
    | e4 g8 a4 b8 d b g a g fis
    | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    | < g b d >1.

    \bar "|."

  }
}

%part: harmony_onepage
harmony_onepage = {
  \set Score.markFormatter = #format-mark-box-numbers
  \set Staff.instrumentName = "Harmony "
  \relative c'' {
    \key g \major

    % intro
    \tempo 4. = 60
    \time 12/8
    | <g b e>2. <g b e>
    | <g b e>2. <g b e>4. <fis a dis>
    | g2. <g b>
    | <g b e>2. <g b e>4. <fis a dis>
    | <b e g>2. <b e g>
    | <b e g>2. <b e g>4. r
    | r4. <b d e> r <c e g>
    | r4. <c e b'> r2.
    | r2 a'4 <b, dis g>4. <b dis fis> ~
    | <b dis fis> r4. r2.
    | R1.

    \mark 12
    \tempo 4. = 78
    | r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8 r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8
    | r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8 r4 <g b>8 <g d'> <g b> <g d'>
    | <g b e>4 <e' g>8 ~ <e g> g a bes a bes a bes a
    | g e fis g e g <dis g b>4. r

    \mark 16
    \repeat volta 2 {
      | \repeat percent 4 { <e g b>8 <e g b> <e g b> }
      | \repeat percent 3 { <e g b>8 <e g b> <e g b> } <dis fis b> <dis fis b> <dis fis b>
      | \repeat percent 4 { <e g b>8 <e g b> <e g b> }
      | \repeat percent 2 { <e g b>8 <e g b> <e g b> } <e fis b> <e fis b> <e fis b> <dis fis b> <dis fis b> <dis fis b>
      | \repeat percent 4 { <e g b>8 <e g b> <e g b> }
      | \repeat percent 4 { <e g b>8 <e g b> <e g b> }
      | \repeat percent 2 { <e g b>8 <e g b> <e g b> } \repeat percent 2 { <c e g> <c e g> <c e g> }
      | \repeat percent 2 { <d fis a>8 <d fis a> <d fis a> } \repeat percent 2 { <c e a> <c e a> <c e a> }
    }
    \alternative {
      {
        | <c e a>8 <c e a> <c e a> <c e a> <c e a> <c e a> <b dis fis> r4 r4.
        | <g' b e>8 <g b e> <g b e> <g b e> <g b e> <a e'> <bes e> <a e'> <bes e> <a e'> <bes e> <a e'>
        | <g e'>8 e d <e g b>4 <e g b>8 ~ <e g b>2 r4
      }
      {
        | r4 <e g b>8 <e g b>4 r8 r4 <e g b>8 <e g b>4 r8
      }
    }

    \mark 28
    | r4 <e g b>8 <e g b>4 r8 <dis g a>4 <dis g a>8 ~ <dis g a>4.
    | <g b e>4 <e b'>8 ~ <e b'> g a bes a bes a bes a
    | g e d e g a <dis, fis b>4 <dis fis b>8 ~ <dis fis b>4.
    | r4 e8 g r e a4. <g b e>4 <e g b>8
    | r4 e8 g r bes a4. <g b e>4 <e g b>8
    | r4 e8 g r e a4. <g b e>4 <e g b>8
    | r4 e8 g a g bes a g a g <e g b>
    | g4 e e8 a g4 e g8 a
    | bes8 b e a, g a g16 e ~ e4 r8 d c

    \mark 37
    | e'8 b e, r4. r4 < g b e >8 < g b e >4.
    | bes16 g16 ~ g8 e ~ e4. r4 < g a d >8 ~ < g a d >4.
    | e4. e8 g a b e bes a g e
    | g8 e g e g e d' b <g a d> ~ <g a d>4.
    | r4. <g b e>4. r4. <e g b>4.
    | r4. <d e g>4. r4. <e g b>4.
    | \repeat percent 2 { r8 <g b e> <g b e> <g b e> <g b e> r }
    | r8 <g b e> <g b e> <g b e> <g b e> r r <e g b> <e g b> <e g b> <e g b> r
    | r8 <g b e> <g b e> <g b e> <g b e> r r <g c e> <g c e> <b c e> <b c e> r
    | r8 <a b d> <a b d> <a b d> <a b d> r r <e a c> <e a c> <dis a' c> <dis a' c> <dis a' c>
    | r4. <e g b> r <e g b>
    | r4. <e g b> r <e g b>
    | <e fis a>4. <e fis a> <dis fis a>4 r2

    \mark 50
    | R1.
    \tempo 4. = 68
    \repeat percent 2 {
      | e4 g8 a4 b4. b,8 d4 e8 ~
      | e4 g8 a4 b8 d b g a g fis
    }
    \repeat percent 4 {
      | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    }
    | < g b d >1.

    \bar "|."

  }
}

%part: harmony_onepage_bes
harmony_onepage_bes = {
  \set Score.markFormatter = #format-mark-box-numbers
  \set Staff.instrumentName = "Harmony "
  \relative c'' {
    \key g \major

    % intro
    \tempo 4. = 60
    \time 12/8
    | <g' b e>2. <g b e>
    | <g b e>2. <g b e>4. <fis a dis>
    | g2. <g b>
    | <g b e>2. <g b e>4. <fis a dis>
    | <b e g>2. <b e g>
    | <b e g>2. <b e g>4. r
    | r4. <b d e> r <c e g>
    | r4. <c e b'> r2.
    | r2 a'4 <b, dis g>4. <b dis fis> ~
    | <b dis fis> r4. r2.
    | R1.

    \mark 12
    \tempo 4. = 78
    | r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8 r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8
    | r4 \acciaccatura ais8 <g b e>8 \acciaccatura ais8 <g b e>4 r8 r4 <g b>8 <g d'> <g b> <g d'>
    | <g b e>4 <e g>8 ~ <e g> g a bes a bes a bes a
    | g e fis g e g <dis g b>4. r

    \mark 16
    \repeat volta 2 {
      | \repeat percent 4 { <e g b>8 <e g b> <e g b> }
      | \repeat percent 3 { <e g b>8 <e g b> <e g b> } <dis fis b> <dis fis b> <dis fis b>
      | \repeat percent 4 { <e g b>8 <e g b> <e g b> }
      | \repeat percent 2 { <e g b>8 <e g b> <e g b> } <e fis b> <e fis b> <e fis b> <dis fis b> <dis fis b> <dis fis b>
      | \repeat percent 4 { <e g b>8 <e g b> <e g b> }
      | \repeat percent 4 { <e g b>8 <e g b> <e g b> }
      | \repeat percent 2 { <e g b>8 <e g b> <e g b> } \repeat percent 2 { <c e g> <c e g> <c e g> }
      | \repeat percent 2 { <d fis a>8 <d fis a> <d fis a> } \repeat percent 2 { <c e a> <c e a> <c e a> }
    }
    \alternative {
      {
        | <c e a>8 <c e a> <c e a> <c e a> <c e a> <c e a> <b dis fis> r4 r4.
        | <g' b e>8 <g b e> <g b e> <g b e> <g b e> <a e'> <bes e> <a e'> <bes e> <a e'> <bes e> <a e'>
        | <g e'>8 e d <e g b>4 <e g b>8 ~ <e g b>2 r4
      }
      {
        | r4 <e g b>8 <e g b>4 r8 r4 <e g b>8 <e g b>4 r8
      }
    }

    \mark 28
    | r4 <e g b>8 <e g b>4 r8 <dis g a>4 <dis g a>8 ~ <dis g a>4.
    | <g b e>4 <e b'>8 ~ <e b'> g a bes a bes a bes a
    | g e d e g a <dis, fis b>4 <dis fis b>8 ~ <dis fis b>4.
    | r4 e8 g r e a4. <g b e>4 <e g b>8
    | r4 e8 g r bes a4. <g b e>4 <e g b>8
    | r4 e8 g r e a4. <g b e>4 <e g b>8
    | r4 e8 g a g bes a g a g <e g b>
    | g4 e e8 a g4 e g8 a
    | bes8 b e a, g a g16 e ~ e4 r8 d c

    \mark 37
    | e'8 b e, r4. r4 < g b e >8 < g b e >4.
    | bes16 g16 ~ g8 e ~ e4. r4 < g a d >8 ~ < g a d >4.
    | e4. e8 g a b e bes a g e
    | g8 e g e g e d' b <g a d> ~ <g a d>4.
    | r4. <g b e>4. r4. <e g b>4.
    | r4. <d e g>4. r4. <e g b>4.
    | \repeat percent 2 { r8 <g b e> <g b e> <g b e> <g b e> r }
    | r8 <g b e> <g b e> <g b e> <g b e> r r <e g b> <e g b> <e g b> <e g b> r
    | r8 <g b e> <g b e> <g b e> <g b e> r r <g c e> <g c e> <b c e> <b c e> r
    | r8 <a b d> <a b d> <a b d> <a b d> r r <e a c> <e a c> <dis a' c> <dis a' c> <dis a' c>
    | r4. <e g b> r <e g b>
    | r4. <e g b> r <e g b>
    | <e fis a>4. <e fis a> <dis fis a>4 r2

    \mark 50
    | R1.
    \tempo 4. = 68
    \repeat percent 2 {
      | e4 g8 a4 b4. b,8 d4 e8 ~
      | e4 g8 a4 b8 d b g a g fis
    }
    \repeat percent 4 {
      | g8 e' d g16 fis d8 e g, e' d b16 a g8 fis
    }
    | < g b d >1.

    \bar "|."

  }
}

%part: bass
bass = {
  \set Score.markFormatter = #format-mark-box-numbers
  \set Staff.instrumentName = "Bass "
  \relative c {
    \key g \major

    % intro
    \tempo 4. = 60
    \time 12/8
    | e2. d
    | c2. b
    | e2. d
    | c2. b
    | e2. d
    | cis2. c4. r
    | r4. c r a
    | r4. fis b2. ~
    | b1. ~
    | b4. r r2.
    | R1.

    \mark 12
    \tempo 4. = 78
    | e4. ~ e4 e8 d4. ~ d4 d8
    | c4. ~ c4 c8 b4 b8 d b d
    | e4. e d4. ~ d4 d8
    | c4. ~ c4 c8 b2.

    \mark 16
    \repeat volta 2 {
      | e4. ~ e4 e8 d4. ~ d4 d8
      | c4. ~ c4 c8 b4. ~ b8 b' fis
      | e4. ~ e4 e8 d4. ~ d4 d8
      | c4. ~ c4 c8 b4. b'
      | e,4. ~ e4 e8 d4. ~ d4 d8
      | cis4. ~ cis4 cis8 c4. ~ c4 c8
      | b4. ~ b4 b8 a4. ~ a4 a8
      | g4. ~ g4 g8 fis a bes b fis' b,
    }
    \alternative {
      {
        | a4. a8 a bes b r4 r4.
        | e4. ~ e4 e8 e4. ~ e4 e8
        | e4. ~ e4 e8 e4. c'8 b g
      }
      {
        | e4. ~ e4 e8 d4. ~ d4 d8
      }
    }

    \mark 28
    | c4. ~ c4 c8 b4 b8 d b d
    | e4. ~ e4 e8 d4. ~ d4 d8
    | c4. ~ c4 c8 b4 b8 d b d
    | e4. ~ e4 e8 d4. d4 d8
    | b4. ~ b4 b8 b2.
    | e4. ~ e4 e8 d4. d4 d8
    | b4. ~ b4 b8 b2.
    | e4. ~ e4 e8 d4. d4 d8
    | cis4. ~ cis4 cis8 b4. ~ b4 b8

    \mark 37
    | e4. ~ e4 e8 d4. ~ d4 d8
    | c4. ~ c4 c8 b4 b8 d b d
    | e4. ~ e4 e8 d4. ~ d4 d8
    | c4. ~ c4 c8 b4 b8 d b d
    | e4. ~ e4 e8 d4. ~ d4 d8
    | cis4. ~ cis4 cis8 c4. ~ c4 c8
    | e4. ~ e4 e8 d4. ~ d4 d8
    | cis4. ~ cis4 cis8 c4. ~ c4 c8
    | b4. ~ b8 b bes a4. ~ a8 a aes
    | g4. ~ g8 g g fis fis fis b b b
    | e8 e e e e e d d d d d d
    | cis4. ~ cis4 cis8 c4. ~ c4 c8
    | a8 a a a a bes b4 r2

    \mark 50
    | R1.
    | e4. ~ e4 e8 d4. ~ d4 d8
    | c4. ~ c4 c8 b4 b8 d b d
    | e4. ~ e4 e8 d4. ~ d4 d8
    | c4. ~ c4 c8 b4 b8 d b d
    | c4 g8 a4 b4. b8 d4 e8 ~
    | e4 g8 a4 b8 d b g a g fis
    | e2. d
    | c2. b
    | e,1.

    \bar "|."

  }
}

%words

verseOne = \lyricmode {

  % verse one
  Birds fly -- ing high
  You know how I feel
  Sun in the sky
  You know how I feel
  Breeze drif -- tin' on - - - - by
  You know how I feel
  It's a new dawn
  It's a new day
  It's a new life
  For me
  And I'm fe -- el -- ing good
  I' - - - m feel -- ing good.

  % verse two
  Fish in the sea
  You know how I feel
  Rivers run -- ning free
  You know how I fe -- el
  Blos -- som on a tree - - -
  You know how I feel
  It's a new dawn
  It's a new day
  It's a new life -
  For me
  And I'm fe -- el -- i -- ng good.
  For me

  _ _ _ _ _
  _ _ _ _ _
  _ _ _ _ _
  _ _

  % verse four
  Star when you shi - - ne
  You know how I feel
  Scent of the pine
  You know how I feel
  Oh free -- dom i -- s mi -- ne
  And I know how I fe -- el
  It's a new dawn
  It's a new day
  It's a new life
  It's a new dawn
  It's a new day
  It's a new li -- fe
  It's a new dawn
  It's a new day
  It's a new life
  It's a ne -- w life for me
  And I'm fe -- el -- ing - - - - good -
  I'm - - - - - feel -- _ ing good
  I - - feel so good
  I - - - feel so good - - -

}

verseThree = \lyricmode {
  _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

  % verse three
  Dragonfly out_in the sun
  You know what I mean
  Butterflies all havin' fun
  You know what I me -- an
  Sle -- ep in peace when day is done
  Tha -- t's what I mean

  And this old world is a new world
  And a bold world -
  For me

}

%layout

#(define (naturalize-pitch p)
   (let ((o (ly:pitch-octave p))
         (a (* 4 (ly:pitch-alteration p)))
         ;; alteration, a, in quarter tone steps,
         ;; for historical reasons
         (n (ly:pitch-notename p)))
     (cond
      ((and (> a 1) (or (eqv? n 6) (eqv? n 2)))
       (set! a (- a 2))
       (set! n (+ n 1)))
      ((and (< a -1) (or (eqv? n 0) (eqv? n 3)))
       (set! a (+ a 2))
       (set! n (- n 1))))
     (cond
      ((> a 2) (set! a (- a 4)) (set! n (+ n 1)))
      ((< a -2) (set! a (+ a 4)) (set! n (- n 1))))
     (if (< n 0) (begin (set! o (- o 1)) (set! n (+ n 7))))
     (if (> n 6) (begin (set! o (+ o 1)) (set! n (- n 7))))
     (ly:make-pitch o n (/ a 4))))

#(define (naturalize music)
   (let ((es (ly:music-property music 'elements))
         (e (ly:music-property music 'element))
         (p (ly:music-property music 'pitch)))
     (if (pair? es)
         (ly:music-set-property!
          music 'elements
          (map naturalize es)))
     (if (ly:music? e)
         (ly:music-set-property!
          music 'element
          (naturalize e)))
     (if (ly:pitch? p)
         (begin
           (set! p (naturalize-pitch p))
           (ly:music-set-property! music 'pitch p)))
     music))

naturalizeMusic =
#(define-music-function (m)
   (ly:music?)
   (naturalize m))

\book {
  \score {
    <<
      \unfoldRepeats \new Staff \transpose d c \melody
      \unfoldRepeats \new Staff \transpose d c \harmony
      \unfoldRepeats \new Staff \transpose d c \bass
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)

#(define output-suffix "C-score")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new Voice = "melody" { \naturalizeMusic \transpose d c \melody }
        \new Lyrics \lyricsto "melody" { \verseOne }
        \new Lyrics \lyricsto "melody" { \verseThree }
        \new Staff \naturalizeMusic \transpose d c \harmony
        \new Staff { \naturalizeMusic \transpose d c { \clef "bass" \bass  }}
      >>
    }
  }
}

#(define output-suffix "C-melody")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new Voice = "melody" { \naturalizeMusic \transpose d c \melody }
      >>
    }
  }
}

#(define output-suffix "C-melody-bass-clef")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new Voice = "melody" { \naturalizeMusic \transpose d c, { \clef "bass" \melody }}
      >>
    }
  }
}

#(define output-suffix "C-harmony")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new Staff \naturalizeMusic \transpose d c \harmony_onepage
      >>
    }
  }
}

#(define output-suffix "C-harmony-bass-clef")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new Staff \naturalizeMusic \transpose d c,, { \clef "bass" \harmony_onepage }
      >>
    }
  }
}

#(define output-suffix "C-bass")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new Staff { \naturalizeMusic \transpose d c { \clef "bass" \bass  }}
      >>
    }
  }
}

#(define output-suffix "Bflat-score")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
      <<
        \new Voice = "melody" { \naturalizeMusic \transpose bes c' { \transpose d c \melody } }
        \new Lyrics \lyricsto "melody" { \verseOne }
        \new Lyrics \lyricsto "melody" { \verseThree }
        \new Staff \naturalizeMusic \transpose bes c { \transpose d c \harmony_bes }
        \new Staff { \naturalizeMusic \transpose bes c''' { \transpose d c \bass } }
      >>
    }
  }
}

#(define output-suffix "Bflat-melody")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
      <<
        \new Voice = "melody" { \naturalizeMusic \transpose bes c' { \transpose d c \melody } }
      >>
    }
  }
}

#(define output-suffix "Bflat-harmony")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
      <<
        \new Staff \naturalizeMusic \transpose bes c { \transpose d c \harmony_onepage_bes }
      >>
    }
  }
}

#(define output-suffix "Eflat-score")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new Voice = "melody" { \naturalizeMusic \transpose ees c' { \transpose d c \melody } }
        \new Lyrics \lyricsto "melody" { \verseOne }
        \new Lyrics \lyricsto "melody" { \verseThree }
        \new Staff \naturalizeMusic \transpose ees c { \transpose d c \harmony }
        \new Staff { \naturalizeMusic \transpose ees c'' { \transpose d c \bass } }
      >>
    }
  }
}

#(define output-suffix "Eflat-melody")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new Voice = "melody" { \naturalizeMusic \transpose ees c' { \transpose d c \melody } }
      >>
    }
  }
}

#(define output-suffix "Eflat-harmony")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new Staff \naturalizeMusic \transpose ees c { \transpose d c \harmony_onepage }
      >>
    }
  }
}

#(define output-suffix "Eflat-bass")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new Staff { \naturalizeMusic \transpose ees c'' { \transpose d c \bass } }
      >>
    }
  }
}